home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mmatch / about.frm < prev    next >
Text File  |  1995-09-06  |  3KB  |  129 lines
  1. VERSION 2.00
  2. Begin Form About 
  3.    BackColor       =   &H00000080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About"
  6.    ClientHeight    =   2895
  7.    ClientLeft      =   3690
  8.    ClientTop       =   1890
  9.    ClientWidth     =   5760
  10.    Height          =   3300
  11.    Left            =   3630
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2895
  17.    ScaleWidth      =   5760
  18.    Top             =   1545
  19.    Width           =   5880
  20.    Begin PictureBox EXITABOUT 
  21.       BackColor       =   &H000000FF&
  22.       Height          =   1000
  23.       Left            =   0
  24.       ScaleHeight     =   975
  25.       ScaleWidth      =   975
  26.       TabIndex        =   7
  27.       Top             =   0
  28.       Width           =   1000
  29.    End
  30.    Begin ListBox List1 
  31.       Height          =   2520
  32.       Left            =   240
  33.       TabIndex        =   6
  34.       Top             =   2280
  35.       Visible         =   0   'False
  36.       Width           =   5292
  37.    End
  38.    Begin CommandButton MOREBUTTON 
  39.       Caption         =   "More..."
  40.       Height          =   495
  41.       Left            =   2160
  42.       TabIndex        =   0
  43.       Top             =   2160
  44.       Width           =   1455
  45.    End
  46.    Begin PictureBox Picture2 
  47.       AutoSize        =   -1  'True
  48.       Enabled         =   0   'False
  49.       Height          =   510
  50.       Left            =   4836
  51.       Picture         =   ABOUT.FRX:0000
  52.       ScaleHeight     =   480
  53.       ScaleWidth      =   480
  54.       TabIndex        =   2
  55.       Top             =   876
  56.       Width           =   510
  57.    End
  58.    Begin PictureBox Picture1 
  59.       AutoSize        =   -1  'True
  60.       Enabled         =   0   'False
  61.       Height          =   510
  62.       Left            =   408
  63.       Picture         =   ABOUT.FRX:0302
  64.       ScaleHeight     =   480
  65.       ScaleWidth      =   480
  66.       TabIndex        =   1
  67.       Top             =   876
  68.       Width           =   510
  69.    End
  70.    Begin PictureBox Mh3d1 
  71.       BackColor       =   &H000000FF&
  72.       Height          =   1000
  73.       Left            =   0
  74.       ScaleHeight     =   975
  75.       ScaleWidth      =   975
  76.       TabIndex        =   3
  77.       Top             =   0
  78.       Width           =   1000
  79.       Begin PictureBox Mh3d3 
  80.          BackColor       =   &H000000FF&
  81.          Height          =   1000
  82.          Left            =   0
  83.          ScaleHeight     =   975
  84.          ScaleWidth      =   975
  85.          TabIndex        =   5
  86.          Top             =   0
  87.          Width           =   1000
  88.       End
  89.       Begin PictureBox Mh3d2 
  90.          BackColor       =   &H000000FF&
  91.          Height          =   1000
  92.          Left            =   0
  93.          ScaleHeight     =   975
  94.          ScaleWidth      =   975
  95.          TabIndex        =   4
  96.          Top             =   0
  97.          Width           =   1000
  98.       End
  99.    End
  100. End
  101. DefInt A-Z
  102.  
  103. Sub EXITABOUT_Click ()
  104.     Unload ABOUT
  105. End Sub
  106.  
  107. Sub MOREBUTTON_Click ()
  108.     
  109.     MOREBUTTON.VISIBLE = 0
  110.     
  111.     LIST1.VISIBLE = -1
  112.     EXITABOUT.VISIBLE = -1
  113.  
  114.     ABOUT.HEIGHT = 6150
  115.  
  116.     Open "MMREADME.TXT" For Input As #1
  117.  
  118.         Do While Not EOF(1)
  119.             Line Input #1, ITEM$
  120.             LIST1.AddItem " " + ITEM$
  121.         Loop
  122.  
  123.     Close
  124.  
  125.  
  126.  
  127. End Sub
  128.  
  129.